(defpackage :complex-rectangular
  (:use :cl))

(in-package :complex-rectangular)

(defparameter *c3* '(1.0 . 1.0))
(defparameter *c4* '(3.0 . 2.0))

(defun make-complex (x y)
  (cons x y))

(defun real-part (x)
  (car x))

(defun imag-part (x)
  (cdr x))

(defun add (x y)
  (make-complex (+ (real-part x)
		   (real-part y))
		(+ (imag-part x)
		   (imag-part y))))